home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / mpfeel.lha / MPFeel / Modules / standard0.em < prev    next >
Text File  |  1992-10-07  |  1KB  |  75 lines
  1. ;; Eulisp Module
  2. ;; most of levels 1 and 0
  3. ;; Standard modules...
  4.  
  5. ;; $Header: /opt/home/pab/Export/You/NewYou/Modules/RCS/standard0.em,v 1.6 1992/02/11 22:50:25 pab Exp pab $$
  6.  
  7. (defmodule standard0
  8.   (lists 
  9.    list-operators
  10.    extras0
  11.    macros0
  12.    others
  13.    arith
  14.    streams
  15.    calls
  16.    ccc
  17.    vectors
  18.    tables
  19.    formatted-io
  20.    strings
  21.    (except (defcondition) errors)
  22.    symbols
  23.    (except (defgeneric defmethod call-next-method generic-lambda) generics)
  24.    (except (defclass defstruct) classes)
  25.    characters
  26.    threads
  27.    semaphores
  28.    defs
  29.    (except (null) class-names)
  30.    initcode) ()
  31.  
  32.    ;; hack
  33.  
  34.    (defmethod generic-prin ((x generic-function) stream)
  35.      (format stream "#<~a: ~a>"
  36.          (class-name (class-of x))
  37.          (generic-name x)))
  38.    (defmethod generic-write ((x generic-function) stream)
  39.      (format stream "#<~a: ~a>"
  40.          (class-name (class-of x))
  41.          (generic-name x)))
  42.  
  43.    (expose
  44.     lists 
  45.     list-operators
  46.     extras0
  47.     macros0
  48.     others
  49.     arith
  50.     streams
  51.     calls
  52.     ccc
  53.     vectors
  54.     tables
  55.     formatted-io
  56.     strings
  57.     errors
  58.     (except (defcondition) errors)
  59.     symbols
  60.     (except (defgeneric defmethod call-next-method generic-lambda) generics)
  61.     (except (defclass defstruct) classes)
  62.     classes
  63.     characters
  64.     threads
  65.     semaphores
  66.     defs
  67.     initcode
  68.     (except (null) class-names))
  69.   
  70.   (defconstant *compiler-hack* 42)
  71.   
  72. )
  73.  
  74.  
  75.